home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / dayquote / printdoc.bas < prev    next >
BASIC Source File  |  1995-05-09  |  39KB  |  908 lines
  1.     DECLARE SUB PrintDoc (FileName$)
  2.  
  3. Sub PrintDoc (FileName$)
  4.  
  5.     Open FileName$ For Output As #1
  6.  
  7.     Print #1,
  8.     Print #1,
  9.     Print #1,
  10.     Print #1,
  11.     Print #1,
  12.     Print #1,
  13.     Print #1,
  14.     Print #1, "                       ───────────  DayQuote  ───────────"
  15.     Print #1,
  16.     Print #1, "                       (c) 1994, 1995  Freeware Unlimited"
  17.     Print #1,
  18.     Print #1, "                       ──────────────────────────────────"
  19.     Print #1,
  20.     Print #1,
  21.     Print #1,
  22.  
  23. If FileName$ <> "CON" Then Print "Printing documentation to file:  "; FileName$
  24. If FileName$ <> "CON" Then Print ".";
  25.  
  26.     Print #1,
  27.     Print #1,
  28.     Print #1,
  29.     Print #1,
  30.     Print #1, "                                    Contents"
  31.     Print #1, "                   ──────────────────────────────────────────"
  32.     Print #1,
  33.     Print #1, "                   ■ Introduction . . . . . . . . . . . . . 2"
  34.     Print #1,
  35.     Print #1, "                   ■ Quote File Structure . . . . . . . . . 3"
  36.     Print #1,
  37.     Print #1, "                   ■ Command Line Options . . . . . . . . . 5"
  38.     Print #1,
  39.     Print #1, "                   ■ Result Messages  . . . . . . . . . . . 8"
  40.     Print #1,
  41.  
  42. If FileName$ <> "CON" Then Print ".";
  43.  
  44.     Print #1, "                   ──────────────────────────────────────────"
  45.     Print #1,
  46.     Print #1,
  47.     Print #1,
  48.     Print #1,
  49.     Print #1,
  50.     Print #1,
  51.     Print #1,
  52.     Print #1,
  53.     Print #1,
  54.     Print #1,
  55.     Print #1,
  56.     Print #1, "               ╔═════════════════════════════════════════════════╗"
  57.     Print #1, "               ║                He's dead, Jim.                  ║"
  58.     Print #1, "               ║                                         - Bones ║"
  59.  
  60. If FileName$ <> "CON" Then Print ".";
  61.  
  62.     Print #1, "               ╚═════════════════════════════════════════════════╝"
  63.     Print #1,
  64.     Print #1,
  65.     Print #1,
  66.     Print #1,
  67.     Print #1,
  68.     Print #1,
  69.     Print #1,
  70.     Print #1,
  71.     Print #1,
  72.     Print #1,
  73.     Print #1,
  74.     Print #1,
  75.     Print #1,
  76.     Print #1,
  77.  
  78. If FileName$ <> "CON" Then Print ".";
  79.  
  80.     Print #1,
  81.     If FileName$ <> "CON" Then Print #1, "                                     Page 1 "
  82.     Print #1, "────────────────────────────────────────────────────────────────────────────"
  83.     Print #1, "  ■ INTRODUCTION"
  84.     Print #1, "────────────────────────────────────────────────────────────────────────────"
  85.     Print #1,
  86.     Print #1,
  87.     Print #1, "    ■ What DayQuote Is:"
  88.     Print #1,
  89.     Print #1, "        It is, to be perfectly honest, the first real program I have"
  90.     Print #1, "        written, and there might exist on some plane programmers who are"
  91.     Print #1, "        self-important enough to say that even this isn't a real program."
  92.     Print #1,
  93.     Print #1, "        Nevertheless, I think you will enjoy it, and its many options."
  94.     Print #1, "        Those hypothetical programmers I mentioned earlier might even"
  95.  
  96. If FileName$ <> "CON" Then Print ".";
  97.  
  98.     Print #1, "        take a second glance at its versatile command line options."
  99.     Print #1,
  100.     Print #1, "        All of those options are described below, in their totality."
  101.     Print #1, "        The text is concise; hence, it might be 'thick' in some places."
  102.     Print #1, "        Please, though, if you feel justified in your critique of my"
  103.     Print #1, "        writing - either in the English language or the BASIC language -"
  104.     Print #1, "        then I would welcome your comments by snail mail."
  105.     Print #1,
  106.     Print #1,
  107.     Print #1, "    ■ How It Works:"
  108.     Print #1,
  109.     Print #1, "        It takes what you have typed in following its name on the command"
  110.     Print #1, "        line and then acts on the information you have given to it."
  111.     Print #1, "        Several things can take place from there, depending upon what"
  112.     Print #1, "        you gave to it in the form of 'switches' on the command line."
  113.  
  114. If FileName$ <> "CON" Then Print ".";
  115.  
  116.     Print #1,
  117.     Print #1, "        If it encounters '/?' anywhere, it will show the Help Screen,"
  118.     Print #1, "        then return you to the command line.  If it encounters the '/D'"
  119.     Print #1, "        switch, it will go into an exclusive process similar to the '/?'"
  120.     Print #1, "        switch, except that it is more comprehensive in every respect."
  121.     Print #1, "        See the section about Command Line Options for complete details"
  122.     Print #1, "        on these options, as well as the following ones."
  123.     Print #1,
  124.     Print #1, "        Aside from those switches, there are nine other switches that"
  125.     Print #1, "        you can use to fully customize the look of your quotes.  Two of"
  126.     Print #1, "        those will control the color of the text frame displayed, and two "
  127.     Print #1, "        others will determine how wide the frame will be.  One of them"
  128.     Print #1, "        also allows you to place the frame starting at any line on your"
  129.     Print #1, "        screen, and there is another switch that will clear the screen"
  130.     Print #1, "        before doing so.  Finally, there are three switches to choose"
  131.  
  132. If FileName$ <> "CON" Then Print ".";
  133.  
  134.     Print #1, "        from that will control how the text of the quote is justified"
  135.     Print #1, "        within the frame; left- or right- or centered."
  136.     Print #1,
  137.     Print #1,
  138.     Print #1, "    ■ To Get More Information:"
  139.     Print #1,
  140.     Print #1, "        Type 'DAYQUOTE/$' on the command line and read about how you can"
  141.     Print #1, "        get free money sent to you, and a whole bunch of other free stuff."
  142.     Print #1,
  143.     Print #1,
  144.     Print #1,
  145.     Print #1,
  146.     Print #1,
  147.     Print #1,
  148.     Print #1,
  149.  
  150. If FileName$ <> "CON" Then Print ".";
  151.  
  152.     Print #1,
  153.     Print #1,
  154.     Print #1,
  155.     If FileName$ <> "CON" Then Print #1, "                                     Page 2 "
  156.     Print #1, "────────────────────────────────────────────────────────────────────────────"
  157.     Print #1, "  ■ QUOTE FILE STRUCTURE"
  158.     Print #1, "────────────────────────────────────────────────────────────────────────────"
  159.     Print #1,
  160.     Print #1, "    ■ Quote file basics:"
  161.     Print #1,
  162.     Print #1, "        What follows between the funky lines is a representative sample"
  163.     Print #1, "        of a valid quote file."
  164.     Print #1,
  165.     Print #1, "        /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\"
  166.     Print #1, "        | Four score and seven years ago...                            |"
  167.  
  168. If FileName$ <> "CON" Then Print ".";
  169.  
  170.     Print #1, "        | ~~Abraham Lincoln                                            |"
  171.     Print #1, "        |                                                              |"
  172.     Print #1, "        | He's dead, Jim.                                              |"
  173.     Print #1, "        | ~~Bones                                                      |"
  174.     Print #1, "        |                                                              |"
  175.     Print #1, "        \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/"
  176.     Print #1,
  177.     Print #1, "        The basic philosophy behind it is to try grouping each body of"
  178.     Print #1, "        text as close as possible.  Each distinct quote must be separated"
  179.     Print #1, "        by a minimum of two carriage returns (Enters), including the one"
  180.     Print #1, "        at the end of the previous quote's line.  The picture again:"
  181.     Print #1, "               "
  182.     Print #1, "        /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\"
  183.     Print #1, "        | Four score and seven years ago...                            |"
  184.     Print #1, "        | ~~Abraham Lincoln «»  <──────────── carriage return 1        |"
  185.  
  186. If FileName$ <> "CON" Then Print ".";
  187.  
  188.     Print #1, "        | «»  <────────────────────────────── carriage return 2        |"
  189.     Print #1, "        | He's dead, Jim.                                              |"
  190.     Print #1, "        | ~~Bones                                                      |"
  191.